home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #148 (19xx)(APS Electronic).zip / Bavarian #148 (19xx)(APS Electronic).adf / allpat < prev    next >
Text File  |  1989-01-11  |  797b  |  26 lines
  1. Setup:
  2.   Colors=5 : MaxColors=2^Colors-1
  3.   DIM Pointer(4,1),AltColor(4),Colors%(31,2)
  4.   DIM FillPattern%(7),AllPatterns%(8,7),Solid%(1)
  5.   DrawType=1 : DrawColor=1 : FillColor=2 : Mode=1
  6.  
  7.   Solid%(0)=&HFFFF : Solid%(1)=&HFFFF
  8.   FOR x=0 TO 7
  9.     FillPattern%(x)=&HFFFF
  10.     AllPatterns%(0,x)=&HFFFF
  11.   NEXT x
  12.   FOR x=1 TO 8
  13.     FOR y=0 TO 7
  14.       READ AllPatterns%(x,y)
  15.     NEXT y
  16.   NEXT x
  17.  
  18.   DATA 24672,1542,24672,1542,24672,1542,24672,1542
  19.   DATA -13108,13107,-13108,13107,-13108,13107,-13108,13107
  20.   DATA 26214,13107,-26215,-13108,26214,13107,-26215,-13108
  21.   DATA -13108,-26215,13107,26214,-13108,-26215,13107,26214
  22.   DATA -258,-258,-258,0,-4113,-4113,-4113,0
  23.   DATA -8185,-8197,-18019,-20491,-20467,-8197,-8185,-1
  24.   DATA 0,0,1632,4080,4080,2016,384,0
  25.   DATA 960,1984,3520,6592,16320,25024,-3104,0
  26.